Top 10k strings from Spectrum Game Writers' Pack - Maze (1983)(Collins Educational).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
1 sl =start line 1 sc =start column 1 olumn =";c;" " 1 ine =";l;" 1 fl =finish line 1 fc =finish column 1 X1 , X2 set limits for random moves.See lines 300 - 1 THE WHITED OUT LINES PRODUCE THE DISPLAY COMMENTS. YOU DON'T NEED THEM. IF YOU WANT TO SEE THEM RUB OUT THE COLOUR CONTROL AT THE START OF THE LINE 1 RUN IT AGAIN? 1 Press any key to start 1 Press ""G"" to go on. 1 PRESS ANY KEY FOR NEXT MOVE 1 PATH-MAKING ROUTINE 1 NUMBERS MUST BE BETWEEN 1 AND 10 1 MAZE & 1 Line in use on this movement. 1 INITIAL VALUES 1 FRONT PAGE 1 FLASHES NEW MOVE 1 FL>SL)-(.1 1 FC>SC)-(.1 1 COMMENTS ON DISPLAY 1 CHOOSE YOUR OWN ENDS ? 1 CHECK FOR END 1 ADJUSTS LIMITS FOR RND MOVES 1 ;"making routine works,and how an" 1 ;"array can be used to map a maze." 1 ;"YOU CAN FIX THE START AND END" 1 ;"X (RND) =" 1 ;"Variables. 1 ;"This program shows how a path-" 1 ;"The BEEPs might annoy you so .." 1 ;"Ready when you are." 1 ;"POINTS TO SUIT YOURSELF." 1 ;"LIKE TO RUN IT AGAIN ?" 1 ;"400 IF C=FC AND L=FL THEN GO TO 500 " 1 ;"370 IF X>";X2;" THEN LET C=C-1: IF C<1 THEN LET C=1:GO TO 300 " 1 ;"350 IF X>.5 AND X<";X2;" THEN LET C=C+1: IF C>10 THEN LET C=10:GO TO 300 " 1 ;"330 IF X>";X1;" AND X<.5 THEN LET L=L-1: IF L<1 THEN LET L=1:GO TO 300" 1 ;"310 IF X<";X1;" THEN LET L=L+1: IF L>10 THEN LET L=10:GO TO 300 " 1 ;" " 1 "YES OR NO PLEASE.";A$: 1 "YES OR NO PLEASE";A$: 1 "START LINE ";SL 1 "START COLUMN ";SC 1 "FINISH LINE ";FL 1 "FINISH COLUMN ";FC 1 for a quiet program or 1 MACBRIDE 1982 1 Press any key to start.